home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00037_Cheat Mask Behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  898 b   |  58 lines
  1. property pSpr, pMaskMember, pOverItem
  2. global debug
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   mHideDrink(me)
  7.   pOverItem = 0
  8. end
  9.  
  10. on mPlaceDrink me, glassMember, newLoc
  11.   pSpr.loc = newLoc
  12.   updateStage()
  13.   pSpr.locV = sprite(me.spriteNum - 2).top + 4
  14.   mShowDrink(me)
  15. end
  16.  
  17. on mRemoveDrink me
  18.   pSpr.locH = -1000
  19. end
  20.  
  21. on mHideDrink me
  22.   pSpr.visible = 0
  23. end
  24.  
  25. on mShowDrink me
  26.   pSpr.visible = 1
  27. end
  28.  
  29. on endSprite me
  30.   pSpr.visible = 1
  31. end
  32.  
  33. on mOverItem me, bottleSprite, spoutLoc
  34.   return pourIntersection(pSpr, bottleSprite, spoutLoc)
  35. end
  36.  
  37. on mouseLeave
  38.   pOverItem = 0
  39. end
  40.  
  41. on mouseEnter me
  42.   if pSpr.visible then
  43.     pOverItem = 1
  44.     sendSprite(me.spriteNum - 2, #mouseEnter)
  45.     if the mouseDown then
  46.       mouseDown(me)
  47.     end if
  48.   end if
  49. end
  50.  
  51. on mouseDown me
  52.   if draggingBottleThang() then
  53.     pourIt()
  54.   else
  55.     makePatronActive(sprite(me.spriteNum - 2).pMyBarSlot)
  56.   end if
  57. end
  58.